home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
wavepool.zip
/
PHONE.WPL
< prev
next >
Wrap
Text File
|
1992-04-08
|
314b
|
21 lines
#
# PHONE Wavepool program
#
# Copyright 1992, Data Assist, Inc.
#
BEGIN {
screate("phone.sou")
for (x=1; x<=10; ++x) {
print "x=", x;
sinwave2(523, 659, 400);
sinwave2(659, 523, 400);
}
sclose(0)
sndvoc("phone.sou", "phone.voc");
}